home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Lengths / merge-rhythms < prev    next >
Lisp/Scheme  |  1997-12-27  |  470b  |  15 lines
  1. merge-rhythms &rest rhythms
  2.  
  3. This is a very straight-forward to understand function.
  4. It merges rhythms together to one rhythm like glueing
  5. sequences together in a sequencer-program or the 
  6. implode-music function (mass-mover) in finale. 
  7.  
  8.  
  9. (setq a1 '(1/2 1/4 1/4 1/12 1/12 1/12)
  10.       a2 '(1/8 1/4 1/4 -1/4 1/8) 
  11.       a3 '(-1/4 1/16 1/16 1/8 1/4. 1/16 -1/16)
  12.       a4 '(1/1 1/8 1/8))
  13.  
  14. (merge-rhythms a1 a2 a3 a4)
  15. ->(1/8 1/8 1/16 1/16 1/8 1/4 1/8 1/8 1/12 1/24 1/24 1/12)